home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / mega magazine 01 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  262 lines
  1. 0 if f=0 then f=1:load"shower",8,1
  2. 1 if f=1 then f=2:load"fonts",8,1
  3. 2 poke 56576,(peek(56576)and252)or2
  4. 3 poke 53272,188
  5. 4 poke 648,6*16+12
  6. 5 printchr$(8)
  7. 6 clr
  8. 7 poke 53280,15:poke 53281,15:poke 646,11
  9. 8 goto 13
  10. 9 poke 56576,(peek(56576)and252)or2
  11. 10 poke 53272,188
  12. 11 poke 648,6*16+12:poke 53280,15:poke 53281,15:poke 646,11
  13. 12 return
  14. 13 print chr$(147)
  15. 14 sys 52480,8,"[b]intro page",1
  16. 15 get a$:if a$<>chr$(32) then 15
  17. 16 sys 52480,8,"",0
  18. 17 gosub 9
  19. 18 print chr$(147)
  20. 19 sys 52480,8,"[b]menu page",1
  21. 20 get a$
  22. 21 if a$="1" then 40
  23. 22 if a$="2" then 50
  24. 23 if a$="3" then 60
  25. 24 if a$="4" then 70
  26. 25 if a$="5" then 80
  27. 26 if a$="6" then 90
  28. 27 if a$="7" then 800
  29. 28 goto 20
  30. 40 sys 52480,8,"",0:gosub 9:print"[147]"
  31. 41 sys 52480,8,"[b]programy page",1
  32. 42 get a$
  33. 43 if a$="1" then 100
  34. 44 if a$="2" then 173
  35. 45 if a$="3" then sys 52480,8,"",0:gosub 9:goto 18
  36. 46 goto 42
  37. 50 sys 52480,8,"",0:gosub 9:print"[147]"
  38. 51 sys 52480,8,"[b]gierki page",1
  39. 52 get a$
  40. 53 if a$="1" then 200
  41. 54 if a$="2" then 250
  42. 55 if a$="3" then 300
  43. 56 if a$="4" then sys 52480,8,"",0:gosub 9:goto 18
  44. 57 goto 52
  45. 60 sys 52480,8,"",0:gosub 9:goto 400
  46. 70 sys 52480,8,"",0:gosub 9:goto 500
  47. 80 sys 52480,8,"",0:gosub 9:goto 600
  48. 90 sys 52480,8,"",0:gosub 9:goto 700
  49. 100 sys 52480,8,"",0:gosub 9
  50. 101 print chr$(147)
  51. 102 print"
  52. 103 [153]"cze(NULL)(NULL).w tym numerze bpeekdzie pierwsza"
  53. 104 [153]"czpeek(NULL)(NULL) opisu do superowego edytora"
  54. 105 [153]"graficznego pod tytu(NULL)em : amica paintwait."
  55. 106 [153]"edytor ten jest du(NULL)o lepszy od adv.art
  56. 107 print"studio,lecz mniej wygodny."
  57. 108 print"---------press space to continue-------":print:print" by dosh
  58. 109 [161] a$:[139] a$[179][177][199](32) [167] 109
  59. 110 [153]"load"
  60. 111 [153]"stopklawisz (f1wait z menu) - opcje rysunkowe:poke
  61. 112 print
  62. 113 print"p - stawianie punktu
  63. 114 [153]"f - rysowanie od 'rpeekki'
  64. 115 print"l - rysowanie lini prostych
  65. 116 [153]"s - rysowanie promieni okrpeekgu
  66. 117 print"a - rysowanie antypromieni
  67. 118 [153]"z - rysowanie lini (NULL)amanych
  68. 119 print"n - rysowanie wielok[193]t[218]w
  69. 120 [153]"r - rysowanie prostokatnt(NULL)w
  70. 121 print"g - rysowanie wielok[193]t[218]w
  71. 122 [153]"q - rysowanie kwadrat(NULL)w
  72. 123 print"k - rysowanie okr[194]g[218]w
  73. 124 [153]"e - rysowanie elips
  74. 125 print"b - rysowanie wycinka ko[215]a
  75. 126 [153]
  76. 127 [153]"aby powr(NULL)ci(NULL) do menu g(NULL)(NULL)wnego nale(NULL)y
  77. 128 print"wcisn[193][211] klawisz '^'"
  78. 129 print"---------press space to continue-------"
  79. 130 get a$:if a$<>chr$(32) then 130
  80. 131 print"[147]":     print"[144]klawisz (f3[146] z menu) - wype[215]nienia[151]
  81. 132 [153]"wszystkie figury wype(NULL)niane satn aktualn-
  82. 133 print"-ie u[255]ywanym kolorem."
  83. 134 print
  84. 135 print"r - rysowanie wype[215]nianych prostok[193]t[218]w
  85. 136 [153]"q - rysowanie wype(NULL)nianych kwadrat(NULL)w
  86. 137 print"n - rysowanie wype[215]nianych wielk[193]t[218]w
  87. 138 [153]"k - rysowanie wype(NULL)nianych k(NULL)(NULL)
  88. 139 print"e - rysowanie wype[215]nianych elips
  89. 140 [153]"u - rysowanie wype(NULL)nianych wycink(NULL)w k(NULL)(NULL)
  90. 141 print"o - rys. wype[215]nianych wycink[218]w elips
  91. 142 [153]"f - wype(NULL)nianie aktualnym kolorem
  92. 143 print"s - spary,np.w okienku max.99*99."
  93. 144 print"    oraz si[215][194] od '0 - max do 99 - min'
  94. 145 [153]"---------press space to continue-------"
  95. 146 [161] a$:[139] a$[179][177][199](32) [167] 146
  96. 147 [153]"load"
  97. 148 [153]"stopklawisz (f5wait z menu) - wycinkipoke"
  98. 149 [153]"najpierw trzeba ustali(NULL) wymiary wycinka
  99. 150 print"i p[218][223]niej stosowa[211] si[194] do polece[209] :"
  100. 151 print
  101. 152 print"d - katalog dysku.tylko nagrane wycinki
  102. 153 [153]"l - (NULL)adowanie wycinka.bez prefiksu [b]"
  103. 154 [153]"s - zapis wycinka
  104. 155 print"p - lustro.wzgl[194]demo osi [ox] czy [oy]
  105. 156 [153]"e - obrut.kursorami ustalamy katnt obrotu
  106. 157 print"g - powi[194]kszenie proporcionalne kl.[g]
  107. 158 [153]"jak i powipeekkszenie niepropor. kl.[b]
  108. 159 print"k - zmniejszenie
  109. 160 [153]"r - pochylenie.wzglpeekdem osi [ox]/[oy]
  110. 161 print"b - wygi[194]cie.wzgl[194]dem osi [ox] lub [oy]
  111. 162 [153]"i - rzut perspektywiczny.kursorami
  112. 163 print"ustalmy wielko[216][211] perspektywy"
  113. 164 print"z - obr[218]cenie perspektywiczne.pochyla
  114. 165 [153]"wycinek.'jakby(NULL)my parzyli na obrazek
  115. 166 print"pod mniejszym k[193]tem'"
  116. 167 print"f - zmiana koloru na inny
  117. 168 [153]"v - kopiowanie.dowolnatn ilo(NULL)(NULL) razy
  118. 169 print"kopiuje wycinek"
  119. 170 print"---------press space to continue-------"
  120. 171 get a$:if a$<>chr$(32) then 171
  121. 172 goto 40
  122. 173 sys 52480,8,"",0:gosub 9
  123. 174 print"[147]1.amica paint 1.4    09 pkt.(super)
  124. 175 [153]"2.dir designer pro   07 pkt.(extra)
  125. 176 print"3.disk wizard        07 pkt.(extra)
  126. 177 [153]"4.color basic        06 pkt.(niez(NULL)y)
  127. 178 print"5.simon's basic      05 pkt.(dobry)
  128. 179 [153]"6.adv.art studio     05 pkt.((NULL)redni)
  129. 180 print"7.ultra basic 2      04 pkt.(s[215]aby)
  130. 181 [153]"8.art studio         08 pkt.(bdb.)
  131. 182 print"9.supra system       06 pkt.(niez[215]y)
  132. 183 [153]"10.plik coder 1.0    03 pkt.(s(NULL)aby)
  133. 184 print
  134. 185 print"przysy[215]ajcie list[194] 10-ciu najlepszych"
  135. 186 print"program[218]w z ocen[193] (1-10)"
  136. 187 print"---------press space to continue-------":print:print" by dosh"
  137. 188 get a$:if a$<>chr$(32) then 188
  138. 189 goto 40
  139. 200 sys 52480,8,"",0:gosub 9:print"[147]"
  140. 201 print"mechanicus to symulator popularnych
  141. 202 [153]"niegdy(NULL) flipper(NULL)w.jest to bardzo
  142. 203 print"dobra gra o niez[215]ej grafice i muzyce.
  143. 204 [153]"gra sk(NULL)ada sipeek z trzech etap(NULL)w.przed
  144. 205 print"rozpocz[194]ciem gry za pomoc[193] klawiszy
  145. 206 [153]"funkcyjnych ustalamy :
  146. 207 print"f 1 - muzyka w[215]/wy[215]
  147. 208 [153]"f 3 - efekty w(NULL)/wy(NULL)
  148. 209 print"f 5 - liczba graczy (1-4)
  149. 210 [153]"f 7 - numer planszy (1-3)
  150. 211 print"
  151. 212 [153]"na planszy jest kilka otwor(NULL)w i je(NULL)li
  152. 213 print"umie[216]cimy  w nich bil[194],to w miejscach"
  153. 214 print"gdzie bila mog[215]a by opu[216]ci[211] plansz[194]"
  154. 215 print"pojawiaj[193] si[194] zapory.zdobywanie punkt[218]w
  155. 216 [153]"polega na zbijaniu kart,uderzaniu w tzw
  156. 217 print"grzybki oraz tarcze obrotowe,kanaliki,
  157. 218 [153]"w kt(NULL)rych znajdujatn sipeek bia(NULL)e guziczki."
  158. 219 [153]"dzipeekki tym ostatnim zdobywamy czas,
  159. 220 print"kt[218]ry jest sumowany w czasie ca[215]ej gry.
  160. 221 [153]:[153]"--------press space to continue--------"
  161. 222 [161] a$:[139] a$[179][177][199](32) [167] 222
  162. 223 [153]"load"
  163. 224 [153]"limit bil jest ograniczony do trzech
  164. 225 print"sztuk.po zdobychu stu tysi[194]cy punkt[218]w
  165. 226 [153]"przechodzimy do nastpeekpnej planszy.
  166. 227 print"jest to jednak mo[255]liwe tylko wtedy gdy
  167. 228 [153]"trafimy kulkatn do otworu oznaczowego
  168. 229 print"( exit ).
  169. 230 [153]"(NULL)yczpeek powodzenia i wielu tysipeekcy punktow
  170. 231 print"--------press space to continue--------"
  171. 232 print":?" by dosh"
  172. 233 [161] a$:[139] a$[179][177][199](13) [167] 233
  173. 234 [137] 50
  174. 250 [158] 52480,8,"",0:[141] 9:[153]"load"
  175. 251 [153]"chcia(NULL)bym przedstawi(NULL) wam pierwszatn
  176. 252 print"cz[194][216][211] tips[218]w."
  177. 253 print
  178. 254 print"- action biker -
  179. 255 [153]"stoprnd poke 15489,4 - wy(NULL)atncza kolizje sprit(NULL)wpoke
  180. 256 print"[145]- air wolf ii  -
  181. 257 [153]"stoprnd poke 25958,205 - wy(NULL)atncza kolizje spr.poke
  182. 258 print"- android i -
  183. 259 [153]"stoprnd poke 4283,234 - nie(NULL)miertelno(NULL)(NULL)poke"
  184. 260 [153]"- amc -
  185. 261 print"[144][187] poke 11639,256 - 255 [255]y[211][151]"
  186. 262 print"- aquanaut -
  187. 263 [153]"stoprnd poke 13039,169 - nie(NULL)miertelno(NULL)(NULL)poke"
  188. 264 [153]"- asphai -
  189. 265 print"[144][187] poke 3574,44 - nie[216]miertelno[216][211][151]"
  190. 266 print"- asterix -"
  191. 267 print"[144][187] poke 9774,205 - nie[216]miertelno[216][211][151]"
  192. 268 print"- auto mania -
  193. 269 [153]"stoprnd poke 2249,9 - energia i nie(NULL)miertel.poke
  194. 270 print"- astro blaster -
  195. 271 [153]"stoprnd poke 20755,255 - nie(NULL)miertelno(NULL)(NULL)poke"
  196. 272 [153]
  197. 273 [153]"--------press space to continue--------"
  198. 274 [161] a$:[139] a$[179][177][199](32) [167] 274
  199. 275 [137] 50
  200. 300 [158] 52480,8,"",0:[141] 9:[153]"load"
  201. 301 [153]"1.steel thunder      10 pkt.(super)
  202. 302 print"2.f-19 stealth       10 pkt.(super)
  203. 303 [153]"3.elvira ii          10 pkt.(super)
  204. 304 print"4.oil imperium       10 pkt.(super)
  205. 305 [153]"5.elvira i           09 pkt.(extra)
  206. 306 print"6.last ninja ii      09 pkt.(extra)
  207. 307 [153]"7.pirates            09 pkt.(extra)
  208. 308 print"8.street rod         09 pkt.(extra)
  209. 309 [153]"9.over of the net    08 pkt.(bdb.)
  210. 310 print"10.destroyer         08 pkt.(bdb.)
  211. 311 [153]
  212. 312 [153]"przysy(NULL)ajcie do nas listpeek 10-ciu
  213. 313 print"najlepszych program[218]w z ocen[193] (1-10)
  214. 314 [153]
  215. 315 [153]"---------press space to continue-------":[153]:[153]" by crazy sneak"
  216. 316 [161] a$:[139] a$[179][177][199](32) [167] 316
  217. 317 [137] 50
  218. 400 [158] 52480,8,"",0:[141] 9:[153]"load"
  219. 401 [153]"chcia(NULL)bym przedstawi(NULL) wam pipeek(NULL) lekcji z
  220. 402 print"kursu simon's basica.po koleji b[194]d[194]"
  221. 403 print"w ka[255]dej lekcji b[194]d[194] omawia[215] jedno
  222. 404 [153]"polecenie.my(NULL)lpeek,(NULL)e po kursie bedziecie"
  223. 405 [153]"pisa(NULL) superowe programy!!!"
  224. 406 [153]"---------press space to continue-------":[153]:[153]" by dosh"
  225. 407 [161] a$:[139] a$[179][177][199](32) [167] 407
  226. 408 [137] 17
  227. 500 [158] 52480,8,"",0:[141] 9:[153]"load"
  228. 501 [153]"w tym numerze przedstawiam wam program"
  229. 502 [153]"p.d.stop - sir copy -poke
  230. 503 print"jest to niez[215]y kopier jednoplikowy."
  231. 504 print"ma do[216][211] du[255]e mo[255]liwo[216]ci pracy np."
  232. 505 print"kopiowanie na dwie stacje,polecenua dla
  233. 506 [153]"dysku.my(NULL)lpeek,(NULL)e bpeekdzie wam dobrze s(NULL)u(NULL)y(NULL)
  234. 507 print"---------press space to continue-------":print:print" by dosh"
  235. 508 get a$:if a$<>chr$(32) then 508
  236. 509 goto 17
  237. 600 sys 52480,8,"",0:gosub 9:print"[147]"
  238. 601 print"     hello tu grupa * venturi *"
  239. 602 print"
  240. 603 [153]"witamy w pierwszym numerze magazynu
  241. 604 print"mega magazine #01.oto adres redakcji :"
  242. 605 print
  243. 606 print"[215]ukasz kalinowski    piotr stachowiak
  244. 607 [153]"ul.trybunalska 21/3  al.3 maja 10/10
  245. 608 print"58-100 [216]widnica      97-300 piotrk[218]w tr.
  246. 609 [153]"poszukujemy : grafik(NULL)w,coder(NULL)w(basic)
  247. 610 print"oraz swapper[218]w."
  248. 611 print"---------press space to continue-------":print"by dosh & carzy sneak
  249. 612 [161] a$:[139] a$[179][177][199](32) [167] 612
  250. 613 [137] 17
  251. 700 [158] 52480,8,"",0:[141] 9:[153]"load"
  252. 701 [153]"w dziale tym bpeekdziecie mogli dawa(NULL)
  253. 702 print"og[215]oszenia.adres redakcji w dziale
  254. 703 [153]"informacje.":[153]
  255. 704 [153]"---------press space to continue-------":[153]"by dosh & carzy sneak
  256. 705 get a$:if a$<>chr$(32) then 705
  257. 706 goto 17
  258. 800 sys 52480,8,"",0:gosub 9:print"[147]"
  259. 801 sys 52480,8,"[b]elektronika",1
  260. 802 get a$:if a$<>chr$(32) then 802
  261. 803 goto 17
  262.